home *** CD-ROM | disk | FTP | other *** search
/ Compatibles PC Magazine 22 / PC Mag HS 22 CD2.iso / sharewar / win / formsx / setup.sx_ / setup.sx
Encoding:
Text File  |  1996-06-30  |  645 b   |  23 lines
  1. /////////////////////////////////////////////////////////
  2. // This script is used to build the formula graphics
  3. // installation files
  4. //
  5.  
  6. message "preparing"
  7. $srce_dir = "c:\\projects\\formdemo\\pres\\final\\"
  8. $dest_dir = "c:\\projects\\formdemo\\pres\\final\\setup\\"
  9. call stage_setup
  10. return
  11.  
  12. stage_setup:
  13.  message "compressing"
  14.  delete $dest_dir,"files.lst"
  15.  
  16.  $srce = directory $srce_dir,"*.*" loop n
  17.     $dest = $srce
  18.     dest[dest(0) - 2] = '_'
  19.     execute "compress ",$srce_dir,$srce," ",$dest_dir,$dest
  20.     $info = $dest,", ",$srce,", ",(file_length $srce),", Disk 1"
  21.     save $dest_dir,"files.lst" string $info, CRLF
  22.     message $info
  23.